home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_177.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  599 b   |  34 lines
  1. property spriteNum, sn, mdown
  2. global bpm, timezero, curscript
  3.  
  4. on beginSprite me
  5.   sn = sprite(spriteNum + 1)
  6.   mdown = 0
  7. end
  8.  
  9. on mouseDown me
  10.   mdown = 1
  11. end
  12.  
  13. on mouseUp me
  14.   mdown = 0
  15. end
  16.  
  17. on mouseUpOutSide me
  18.   mdown = 0
  19. end
  20.  
  21. on mouseWithin me
  22.   if mdown then
  23.     curscript = "bpmslider"
  24.     mypos = max(sn.myleft, min(the mouseH + 6, sn.myright))
  25.     myval = sn.mypos - sn.myleft
  26.     sn.locH = mypos
  27.     myperc = (sn.locH - sn.myleft) / sn.mywidth
  28.     mybpm = (myperc * 250) + ((1 - myperc) * 40)
  29.     timezero = timezero + 0
  30.     bpm = mybpm
  31.     sprite(89).member.text = string(bpm)
  32.   end if
  33. end
  34.